home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir24 / frenchgp.zip / BYR31.ZIP / MRR.INC < prev    next >
Text File  |  1994-08-14  |  945b  |  47 lines
  1. BOUCLE1:
  2.   DELBEGIN
  3.   READLINE
  4.   IF ERROR GOTO FIN
  5.  BOUCLE2:
  6.   SEND "^$^M"
  7.  CALL MWAITP.INC
  8.   IF NOT ERROR GOTO BOUCLE1
  9.   IF NOT CONNECTED GOTO ERREUR
  10.  CALL MWAITP.INC
  11.   IF NOT ERROR GOTO BOUCLE1
  12.   IF NOT CONNECTED GOTO ERREUR
  13.  CALL MWAITP.INC
  14.   IF NOT ERROR GOTO BOUCLE1
  15.   IF NOT CONNECTED GOTO ERREUR
  16.  CALL MWAITP.INC
  17.   IF NOT ERROR GOTO BOUCLE1
  18.   IF NOT CONNECTED GOTO ERREUR
  19.  CALL MWAITP.INC
  20.   IF NOT ERROR GOTO BOUCLE1
  21.   IF NOT CONNECTED GOTO ERREUR
  22.  CALL MWAITP.INC
  23.   IF NOT ERROR GOTO BOUCLE1
  24.   IF NOT CONNECTED GOTO ERREUR
  25.  CALL MWAITP.INC
  26.   IF NOT ERROR GOTO BOUCLE1
  27.   IF NOT CONNECTED GOTO ERREUR
  28.  CALL MWAITP.INC
  29.   IF NOT ERROR GOTO BOUCLE1
  30.   IF NOT CONNECTED GOTO ERREUR
  31.  CALL MWAITP.INC
  32.   IF NOT ERROR GOTO BOUCLE1
  33.   IF NOT CONNECTED GOTO ERREUR
  34.  CALL MWAITP.INC
  35.   IF ERROR GOTO ERREUR
  36.   GOTO BOUCLE1
  37.  
  38. ERREUR:
  39.  CALL MDISC1.INC
  40.   WAIT 30
  41.  CALL MCONNECT.INC
  42.   GOTO BOUCLE2
  43.  
  44. FIN:
  45.   CLOSE
  46.  
  47.